home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d26
/
freetk.arc
/
POWFACT.TK
< prev
next >
Wrap
Text File
|
1987-06-16
|
2KB
|
263 lines
TK!2
=v
#1
:n
:s
b
:c
POWER FACTOR WITH COMPLEX FUNCTIONS
#3
:n
mV
:v
440
:s
i
:u
V
:d
V
:c
phasor effective voltage
#4
:n
aV
:v
0
:s
i
:u
rad
:d
deg
:c
" " "
#5
:n
mZ
:s
b
:u
ohm
:d
ohm
:c
equivalent impedance
#6
:n
aZ
:s
b
:u
rad
:d
deg
:c
" "
#7
:n
mI
:s
b
:u
A
:d
A
:c
phasor effective current
#8
:n
aI
:s
b
:u
rad
:d
deg
:c
" " "
#9
:n
mS
:v
15000
:s
i
:u
VA
:d
kVA
:c
apparent power
#10
:n
aS
:s
b
:u
rad
:d
deg
:c
" "
#11
:n
S
:v
10000
:s
i
:u
W
:d
kW
:c
average power P
#12
:n
jS
:s
b
:u
var
:d
kvar
:c
quadrature power Q
#13
:n
pf
:s
b
:c
power factor
#14
:n
:s
b
#15
:n
pfnew
:v
.95
:s
i
:c
new power factor
#16
:n
mSnew
:s
b
:u
VA
:d
kVA
:c
new apparent power
#17
:n
aSnew
:s
b
:u
rad
:d
deg
:c
" " "
#18
:n
jSnew
:s
b
:u
var
:d
kvar
:c
new quadrature power Q
#19
:n
Qc
:s
b
:u
var
:d
kvar
:c
capacitive Q of capacitor bank
#20
:n
:s
b
:c
>> Type =R to see the Rule Sheet <<
=u
#1
:f
rad
:t
deg
:m
57.2957795129
#2
:f
kW
:t
W
:m
1000
#3
:f
kVA
:t
VA
:m
1000
#4
:f
kvar
:t
var
:m
1000
=r
#1
:r
rcis(mI,aI) = rcis(mV,aV)/rcis(mZ,aZ) " Ohm's law
#2
:r
rcis(mS,aS) = rcis(mV/sqrt(2),aV)*rcis(mI/sqrt(2),-aI) " Complex power
#3
:r
(S,jS) = rcis(mS,aS) " Power: rectangular-polar conversion
#4
:r
(S,jSnew) = rcis(mSnew,aSnew)
#5
:r
pf = cos(aS) " Power factor definition
#6
:r
pf = S/mS
#7
:r
pfnew = cos(aSnew) " Effect of shunt capacitance
#8
:r
pfnew = S/mSnew " on improved power factor
#9
:r
jS = jSnew + Qc
#11
:r
" >> Type =V to see the Variable Sheet <<
:s
C
%Tv,f,19,5,0,1,0